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COSTRUISCI LA PRIMA BIBLIOTECA COMPLETA 
DI INFORMATICA PERSONALE 


QUADERN 
JACKSON 

DI PERSONAL COMPUTER 

Volumo pet volume, settimana pei settimana. lutti gli argomenti 

deH'Intormallca personale da cota algnlllca "vivere col computer" al BASIC: 

dal COBOL al PASCAL a al piu dlttusl linguaggi e interni operativi IMS- DOS. CP/M MS* | 

Oall’hardware al software, dalla programmazione del personal computer all utilizzo dei piu 

aftermati pacchetti software: Mulllplan, Visicalc. Lotus 1-2-3, Symphony dBase II. Wordstar ... 




la sua awenlura nel 
mondo dei computer 
e ha bisogno di una 
guida sicura per 
costruire le basi della 
sua conoscenza ed 
esperienza 



per ragioni di studio, 
hobby lavoro, 
precise tematiche di 
software, di hardware 
e di programmazione 



per esigenze prolessionall 
o culturali, un organica 
Biblioteca di testi di base, 
scritti da esperii qualificali, 
coerente con un disegno 
editoriale di ampio respiro 
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DI PERSONAL COMPUTER 


Una Biblioteca di agili 
^ monografie, rivolta ad un 

_vastissimo pubblico: 

^appassionati, professionisti. 

J ” 1 studenti e tecnici. 

30 Volumi pratici redatti con uno 
stile chiaro, competente, accurato 
ed essenziale 
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JAC KSON 
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Guida per l'input dei programmi versioni 


C16 plus/4 - VIC 20 

Notate che i listati contengono paro¬ 
le' racchiuse tra parentesi graffe } / 
Tali parole rappresentano caratteri di 
controllo come mostrato nel sotto¬ 
stante riquadro Se sono precedute da 
un numero, questo indica il numero di 
volte che quel tasto deve essere pre¬ 
muto Se il sìmbolo è sottolineato de¬ 
ve essere premuto contemporanea¬ 
mente a SHIFT mentre se è racchiuso 
da [()] deve essere premuto con¬ 
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temporaneamente al tasto COMMO¬ 
DORE Inoltre, se tra parentesi graffa 
si trova un carattere alfabetico "so¬ 
litario" questo oovrè essere pre¬ 
muto contemporaneamente al tasto 
CTRL 

Con questo sistema di codifica, saia 
molto più agevole copiare i listati sen¬ 
za faticose e dubbie interpretazioni di 
caratteri grafici e di controllo del cur¬ 
sore o dei colon 
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Per ricevere gli arretrati di 

K 


& ùtrjfà compilare II seguente tagliando: 


J £. Compilare ed inviare in busta chiusa a: 

♦ SOTt viale Restelli, 5 - 20124 Milano - Tel. 02/6888228-683797-6880841-2-3 


Nome. 


Cognome 
Indirizzo. 


CAP_ Città 


Prov 


Desidero ricevere i seguenti numeri arretrati di 



ìyJ'J dedicato a. 


Anno 

Anno_ 


a L 2 000 cad per un totale di L. 


a mezzo 


□ assegno allegato O contanti allegati 
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Guida per l'input dei programmi 
sullo ZX Spectrum 


Come è noto, lo Spectrum è provvisto di 
2 serie di tòsti grafici: una prima serie di 16 
caratteri grafici predefiniti (i tasti numerici 
da 1 a 8 e gli stessi "shiftati") e una serie 
di caratteri definibili dall’utente nell’ambi¬ 
to di un programma (le lettere da A a U) 
In entrambi i casi, per ottenere i caratteri 
desiderati occorre entrare in modo grafico 
(cursore contrassegnato dalla lettera G 
lampeggiante) premendo contemporanea¬ 
mente i tasti CAPS SHIFT e 9 
Nei nostri listati i caratteri grafici predefiniti 
sono indicati da una G e dal numero corri¬ 
spondente al tasto che occorre digitare, il 
tutto racchiuso tra due parentesi graffe. 

A esempio (G4) significa che occorre digi¬ 
tare il tasto 4, con il cursore in modo grafi¬ 
co. 

Analogamente la codifica SG, seguita da 
un numero da I a 8, significa che occorre 
digitare il relativo tasto numerico premen¬ 
do contemporanemaente il tasto CAPS 
SHIFT. 

Ad esempio quando si trova la codifi¬ 


ca (SG2), occorre premere il tasto 2 con¬ 
temporaneamente al tasto CAPS SHIFT, ov¬ 
viamente con il cursore in modo grafico. 
In entrambi i casi precedenti, quando un 
simbolo grafico deve essere digitato più 
volte, i caratteri GoSG della codifica sono 
preceduti da un numero che specifica 
quante volte va premuto il tasto grafico in¬ 
dicato 

Così ad esempio (8G5) significa che il ta¬ 
sto grafico 5 va digitato 8 volte , analoga¬ 
mente (4SG1} significa che il tasto grafico 
1, premuto insieme a CAPS SHIFT, deve 
essere battuto 4 volte I caratteri grafici de¬ 
finibili (le lettere da A ai! in modo grafico) 
hanno una codifica semplificata: la lettera 
corrispondente, sottolineata 

Quando in un listato viene presentata, ad 
esempio, una A sottolineata, occorre en¬ 
trare in modo grafico (al solito premendo 
contemporaneamente i tasti CAPS-SHIFT e 
9) e quindi digitare semplicemente il tasto 
che contrassegna la lettera A. 
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Questo articolo è rivolto esclusiva- 
mente ai "Commodoriani" che usa¬ 
no il VIC 20, il 06 o il Plus/4. 

Se non l'hai già fatto, memorizza e 
salva su nastro o disco la versione 
di STOP BUG per il tuo computer. 
Questo programma ti permette, 
una volta caricato ed attivato con 
RUN, di digitare i listati di Papersoft 
senza introdurre errori di battitu¬ 
ra. 

Come avrai notato, le linee dei no¬ 
stri programmi terminano con la 
parola: "■.rem" seguita da un nume¬ 
ro, detto checksum,- NON COPIA¬ 
RE QUESTA PARTE DELLA LINEA , 
che serve solo per tua informazio¬ 
ne. Quando STOP BUG è in funzio¬ 
ne, infatti, tutte le volte che premi 
il tasto RETURN dopo aver digitato 
una linea di programma, appare 
nell'angolo superiore sinistro dello 
schermo un numero, che deve 
coincidere con il checksum da noi 
pubblicato (sempre che tu non ab¬ 
bia usato comandi abbreviati, co¬ 
me ? per PRINT). 

Usando STOP BUG tieni conto del 


fatto che gli spazi non influiscono 
sul checksum, per cui fai particola¬ 
re attenzione alle istruzioni PRINT 
dove spesso presenti. Inoltre 
eventuali inversioni di caratteri non 
vengono segnalate. 

Un altro metodo per utilizzare 
STOP BUG, soprattutto se sei abi¬ 
tuato ad usare le abbreviazioni dei 
comandi Basic, è controllare i che¬ 
cksum listando il programma e bat¬ 
tendo RETURN su ogni linea 
Se intendi sospendere il lavoro di 
digitazione, puoi salvare su nastro 
o disco il programma che stai me¬ 
morizzando senza che STOP BUG 
interferisca,- al momento di ripren¬ 
dere il lavoro ricordati però di cari¬ 
care ed attivare STOP BUG prima 
di ricaricare il tuo programma. 

Per disabilitare STOP BUG premi 
RUN/STOP e RESTORE (su VIC 20) 
oppure RUN/STOP e RESET (su 
06 o PLUS/4). 

Per riattivarlo batti: 

SYS PEEK (56)*256 per il VIC 20; 
SYS 16128 per il 06 e il Plus/4. 






STOP BUG per 06 e PLUS/4 


100 POKE55,0 :POKE56,63:PRINT"{CLR}ATTENDERE PREGO..." 

110 FORI = l6128T0162 60 :READA:CK=CK+A:POKEI,A:NEXT 
120 IFCKOl 4248THENPRINT" {GIU 1 2 3 }ERRORE NELLE ISTRUZIONI DA 
TA": END 

130 SYS16128:PRINT" {CLR} { 2 GIU'}{RVS}STOP BUG{OFF} ATTIV 
ATO.": NEW 

20 0 DATAI 73,34,3,201 , 32,208,1 ,96,1 41 
210 DATA33,63,173,35,3,141,34,63,169 
220 DATA32,141,34,3,169,63,141,35,3 
230 DATAI 69,0,1 33,6,96,32,232,235,1 33 
24 0 DATA3,1 34,4,1 32,5,8,201 , 1 3,240 
2 50 DATAI 7,201 , 32,240,5,24,1 01 ,6,1 33 
260 DATA6,165,3,166,4,164,5,40,96 
27 0 DATAI 69,1 3,32,21 0,255,1 65,205,1 41 ,2 51 
280 DATA3,206,251,3,169,0,133,207,169 

29 0 DATAI 9,32,210,2 55,1 69,1 8,32,210,255 

30 0 DATAI 69,58,32,21 0,255,166,6,169,0 
310 DATAI 33,6,1 72,33,6 3,1 92,2 32,20 8,6 
320 DATA32,95,164,76,117,63,32,7,208 

33 0 DATAI 69,32,32,21 0,255,32,21 0,255,1 73 
340 DATA251,3,133,205,76,55,63 


STOP BUG PER VIC 20 


1 00 POKE55,0: POKF.56, PEEK (56) - 1 : R=PEEK (56) *256: PRINT" {CLR) 
ATTENDERE PREGO..." 

1 10 FORI=RTOR+l32 :READA:CK=CK+A:IFA = 9 99THENA= K/2 56 
120 POKEI,A:NEXT 

130 IFCK< > 2 2 689THENPRINT"{GIU 1 )ERRORE NELLE ISTRUZIONI DA 
TA":END 

140 SYS(R):PRINT"{CLR){ 2 GIU*}{RVS)STOP BUG{OFF) ATTIVAT 
O.": NEW 

200 DATAI 73,36,3,201 , 32,208,1 ,96,1 41 
210 DATA33,999,173,37,3,141,34,999,169 
220 DATA32,141,36,3,169,999,141,37,3 

2 30 DATAI 69,0, 1 33,254,96,32,87,241 , 1 33 
240 DATA251,134,252,132,253,8,201,13,240 
2 50 DATAI 7,201, 32,240,5,24,1 01 ,254,1 33 
260 DATA254,165,251,166,252,164,253,40,96 
270 DATAI 69 ,13,32,210,255,165,214,141 ,251 
280 DATA3,206,251,3,169,0,133,216,169 

2 90 DATAI 9, 32,210,2 55,169,18,32,210,2 55 
300 DATAI 69,58,32,21 0,25 5,1 66,2 54,1 69,0 
310 DATAI 3 3,2 54,1 72,3 3,9 99,1 92,87,208,6 
320 DATA32, 205,1 89,7 6,1 1 7,999,32,205, 221 

3 30 DATAI 69,32,32,21 0,255,32,21 0,255, 1 73 
340 DATA251,3,133,214,76,55,999 


Attcrraggio 


Siete stati inviati su un pianeta da 
poco scoperto per effettuare dei 
rilevamenti e avete lasciato degli 
uomini sulla superficie. Ad un trat¬ 
to vi accorgete del formarsi di stra¬ 
ni batteri giganti sul pianeta e siete 
costretti a raccogliere gli uomini la¬ 
sciati sulla superficie. 

Constatate però che se il numero 
di batteri non è minore di 5 non vi 
è consentito raccogliere il compa¬ 
gno. Quindi dovete sparare ai bat¬ 


teri con il cannone fotonico (azio¬ 
nato dalla barra spazio) della vo¬ 
stra astronave, che potete muove¬ 
re su e giù con i tasti Q e Z, in 
modo da ridurre a meno di 5 il nu¬ 
mero di batteri, dopodiché potrete 
raccogliere l'omino, e passare al li¬ 
vello successivo, dove i batteri si 
moltiplicano più velocemente. 

Per salvare più astronauti possibili 
avete 3 minuti di tempo. Buona 
Fortuna! 
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200 


21 0 
220 


REM ATTERRAGGIO : rem 126 

COLOR4,1 :COLORO,2,7 :COLORI,1 :rem 99 

B$ = "{SIN}":D$ = "{GIU 1 }": SS ="NP[<Q>]"+D$+B$+B$ +B$ + "[<G>] 
[<M>]-"+D$+B$+B$+B$+"M@K" :rem 123 


T$ = "{ 4 SPAZI}"+D$+B$+B$+B$+B$+"{ 4 SPAZI}"+D$+B$+B$+B 
$ +B$ + "{ 4 SPAZI}":BE=3072:GOSUB570 :rem 9 
GOSUB4 50:G$ = "{RVS}{ 2 SPAZI}{OFF}":M$ = "W"+D$+B$+"+" 



— 

: rem 

185 

V$ = " "+D$+B$+" 


: rem 

46 

FORI = 1T040 :CCS =CC$ + "{DES}":NEXT:FORI = 1TO2 5 :RR$ =RR$ + " 

{GIU'}":NEXT:POKE2 0 8,1 2:Q=208 


: rem 

1 78 

C ( 1)=0:C(2)=12:C(3)=24 


: rem 

222 

CI(1)=8:C1(2)=20:C1(3)=32 


: rem 

120 

C=C(1) :R=3:POKE202,C:POKE20 5,R:PRINT" 

” ;ss ; : 

C1=C1( 

1) : 

E=0:LV=LV-.1 


: rem 

200 

FORI=4032TO4032+39:POKEI,l60:NEXT 


: rem 

1 85 

PRINT"{HOME}";LEFT$(CCS,2);LEFTS(RRS, 

22); MS ; 

: rem 

116 

IFTI$>"000300"THENl000 


:rem 

121 

A=PEEK(Q):IFA=62THENGOSUB330 


: rem 

206 

IFA=12THENGOSUB350:ELSEIFA=60THENGOSUB430 

:rem 

105 

IFETHENGOTOl90 


: rem 

109 

GOSUB380 : SOUND2,4,4 


: rem 

104 

Q=198 :GOTOl30 


: rem 

208 

C=C(2):Cl=C1(2):E=0:CN=0:R=3 


: rem 

226 

PRINT"{HOME}LEFTS(CCS,14);LEFTS(RRS 

,22); MS 

; :POKE400 

4,77:Q=208 


: rem 

21 1 

FORI=lTO2STEP0:A=PEEK(Q):IFA=62THENGOSUB330 

:rem 

229 

POKE4004,77 


: rem 

37 
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230 

IFA=12THENGOSUB350:ELSEIFA=60THENGOSUB430 

: rem 

104 

240 

Q=198 :IFETHEN270 

: rem 

156 

250 

GOSUB380: SOUND2,4,4:NEXT 

: rem 

224 

260 

C=C(3) :C1=C1(3) :E=0:CN= 0:R=3:Q=208 

:rem 

68 

270 

PRINT"{HOME}";LEFT$(CCS,26);LEFT$(RR$,22); 

MS; 




: rem 

176 

280 

FORI=1TO2STEP0:A=PEEK(Q):IFA=62THENGOSUB330 :rem 

236 

290 

IFA=12THENGOSUB350:ELSEIFA=60THENGOSUB430 

: rem 

110 

300 

IFETHENl00 

: rem 

39 

310 

Q=198:GOSUB380: SOUND2,4,4:NEXT 

: rem 

71 

320 

STOP 

: rem 

21 9 

330 

IFR=1THENRETURN 

: rem 

244 

340 

POKE202,C:POKE20 5,R:PRINTTS;:R=R-1:POKE205 

,R:POKE202, 


C:PRINT" "SS ; : RETURN 

: rem 

251 

350 

IFR=18THENIFCN<=5THENGOSUB61 0 

: rem 

98 

360 

IFR=18THENRETURN 

: rem 

47 

370 

POKE202,C:POKE205,R:PRINTTS;:R=R+1:POKE205 

, R:POKE202, 


C:PRINT" SS;:RETURN 

: rem 

55 

380 

N=5 + INT(RND(1)*LV*10) : IFN< 5THEN3 80 

: rem 

209 

390 

IFN>18THENRETURN 

: rem 

47 

400 

PO=BE+(N*40)+C1:IFPEEK(PO)=32THENPOKEPO,81 

:CN=CN+1:GO 


SUB420 rSOUNDl,5,5 : RETURN 

: rem 

21 

41 0 

RETURN 

: rem 

1 1 7 

420 

POKE20 5,0 :POKE202,0 :PRINT" "; :PRINTUSING"{RVS}# #{OFF} 


";CN; : RETURN 

: rem 

243 

430 

PE=BE+(R*40)+C1:IFPEEK(PE)=81THENPOKEPE,32 

:CN=CN- 

1 : RE 


TURN 

: rem 

250 

440 

RETURN 

: rem 

120 

450 

PRINT"{CLR}"; 

: rem 

56 

460 

PRINT"{ 13 SPAZI}{RVS}ATTERRAGGIO{OFF}{ 3 SPAZI}{RVS} 


PUNTI{OFF }{ 7 SPAZI}" 

: rem 

124 

470 

PRINT:PRINT:PRINT 

: rem 

182 

480 

PRINT 

: rem 

41 

490 

FORHU=1TOl3 :PRINT"{ 6 SPAZI}(<G>){ 4 SPAZI}[<G>) 

{ 6 SPAZI}(<G>]{ 4 SPAZI}{<G>]{ 6 SPAZI}[<G>J 



{ 4 SPAZI}[<G>]":NEXT 

: rem 

248 


500 PRINT"{ 5 SPAZI} N{ 5 SPAZI}M{ 5 SPAZI}N{ 5 SPAZl}M 

{ 5 SPAZI}N{ 5 SPAZI}M" : rem 55 

510 PRINT"{ 5 SPAZI}{RVSJJ 7 SPAZI}{OFF}{ 5 SPAZI}{RVS} 

{ 7 SPAZI}{OFF}{ 5 SPAZI}{RVS}{ 7 SPAZl}{OFF}" 

:rem 83 

520 PRINT"{ 5 SPAZI}{RVS}{ 7 SPAZI}{OFF}{ 5 SPAZI}{RVS} 

{ 7 SPAZI){OFF}{ 5 SPAZI}{RVS}{ 7 SPAZI}{OFF}" 

:rem 84 

530 PRINT"{ 5 SPAZI){RVS}{ 7 SPAZI}{OFF}{ 5 SPAZI}{RVS} 

{ 7 SPAZI}{OFF}{ 5 SPAZI}{RVS}{ 7 SPAZI}{OFF}" 

:rem 85 

540 PRINT"{ 5 SPAZI}{RVS}{ 7 SPAZI}{OFF}{ 5 SPAZI}{RVS} 

{ 7 SPAZI}{OFF}{ 5 SPAZI}{RVS}{ 7 SPAZI}{OFF}" 

:rem 86 


9 


550 PRINT"{ 4 SPAZI} N { 7 SPAZI}M{ 3 SPAZI}N{ 7 SPAZljM 

{ 3 SPAZI}N{ 7 SPAZI} M" : rem 60 

560 RETURN :rera 123 

570 SCNCLR:PRINT"LIV. DIFFICOLTA' 1 - DIFF. 9 -FACILE"; 

:rem 107 

580 GETWES:IFWE$=""THEN580 :rem 19 

590 IFWE$<"1"ORWE$>"9"THEN580 :rem 134 

600 LV=VAL( WE$) :TI$="000000":RETURN : rem 31 

610 REM : rem 123 

620 IFCl=8THENPRINT"{HOME}";LEFTS(CCS,2);LEFTS(RR$,22);V$ 
; :rem 41 

630 IFCl=20THENPOKE3966, 32 :POKE4 006,32 :rem 198 

640 IFCl=32THENPRINT"{HOME}";LEFTS(CCS,26);LEFTS(RR$,22); 

V$ ; :rem 142 

650 PRINT"{HOME}";LEFTS(CCS,11);LEFTS (RR$ » 2)"PILOTA RACCO 
LTO 11"; : rem 116 

660 FORHJ=1T0999:NEXT :rem 74 

6 70 PRINT"{HOME}";LEFTS(CCS,11 );LEFTS(RR$,2)"{ 18 SPAZI} 
"; : rem 20 

680 SC=SC+100 : rem 195 

690 PRINT"{HOME}";LEFTS(CCS,33);LEFTS(RR$,0);"{RVS}";:PRI 
NTUSING"####";SC; :PRINT"{OFF}"; :rem 102 

700 VE=1:F0RI=1T03 :rem 78 

710 PRINT"{HOME}";LEFTS(CCS,VE);LEFTS(RR$,R);T$;:CN=0:E=1 
:VE=VE+12 : rem 55 

720 NEXT : rem 216 

730 FORBV= 5TOÌ 8:DF=BE+(BV*40)+C1:POKEDF,32 :NEXT : rem 93 

740 RETURN :rem 123 

1 000 PRINT"{CLR}";:FORI = lTOl 000 :NEXT: FORI = 1 TO20:GETA$:NEX 
T :rem 234 

1005 COLORO,15,7:COLOR4,15,2:PRINT"{CLR}{ 6 GIU'}"TAB(15) 
"{BLU}FINE GIOCO" :rem 207 

1010 PRINT" { 5 GIU'HCYNH 7 SPAZI }HAI TOTALIZZATO"SC" PU 
NTI" : rem 40 

1020 PRINT"{ 7 GIU'}{PUR}{ 3 SPAZI}PREMERE UN TASTO PER R 
ICOMINCIARE." : rem 111 

1 030 GETKEYAS : rem 242 

1 040 RUN : rem 186 


r\ 

* 

£•3 

| Triangolo magico 


Questo è un 3 Ì 0 C 0 che; apparente- 
mente facile, richiede invece una 
notevole abilità e intelligenza. Si 


10 


gioca da soli, su una scacchiera a 
forma di triangolo, con 15 caselle 
e 14 pedine, di cui una rossa. 





L'obiettivo è "mangiare ' le pedine 
ad una ad una, e rimuoverle dal 
campo di gioco, in modo da rima¬ 
nere con un solo pezzo. Si può 
mangiare una pedina scavalcando¬ 
la con un 'altra, che poi andrà a fer¬ 
marsi nella casella successiva (in¬ 
somma come nella dama). Per otte¬ 
nere una migliore valutazione l'ulti¬ 
ma e sola pedina rimasta sulla 
scacchiera deve essere quella ros¬ 


sa e deve finire nella casella centra¬ 
le sulla base del triangolo. 
All'inizio del programma appare 
un menu: possono essere scelte le 
posizioni della pedina rossa e del¬ 
la casella libera all'inizio della par¬ 
tita, oppure si può lasciare che le 
decida casualmente il computer. 
Quando il giocatore non può più 
effettuare una mossa valida, deve 
semplicemente premere [RETURN], 


100 

REM ***TRIANGOLO MAGICO* * * 

: rem 

208 

no 

GOTOl50 

: rem 

97 

1 20 

PRINT"{GIU'}PREMI SPAZIO QUANDO SEI PRONTO" :rem 

83 

1 30 

Q$ = "":GETQS:IFQ$=""THENl 30 

: rem 

155 

1 40 

RETURN 

: rem 

117 

1 50 

DIMB(15) 

: rem 

105 

1 60 

FORJ=1TOl5:READP:B(J)=P:NEXT 

: rem 

2 

1 70 

DATA3 4 90,360 8,361 2,3726,3730 

: rem 

110 

1 80 

DATA3734,3844,3848,3852,3856 

: rem 

134 

1 90 

DATA3962,3966,3970,3974,3978 

: rem 

149 

200 

D=-1024 

: rem 

7 

21 0 

COLOR4,10,3 

: rem 

50 

220 

COLORO,6,3 

: rem 

4 

230 

PRINTCHR$(5) 

: rem 

1 69 

240 

PRINTCHRS(147);TAB(12)"TRIANGOLO MAGICO" 

: rem 

122 

2 50 

PRINT”{ 12 DES}{ 3 GIU'}SCELTA OPZIONI 

" : rem 

66 

260 

PRINT"{ 2 GIU'}1 : POSIZIONE CASUALE" 

• : rem 

1 80 

270 

PRINT"{GIU'}2 : POSIZIONE PROGRAMMATA" 

: rem 

226 

280 

PRINT"{GIU 1 }3 : ISTRUZIONI" 

: rem 

9 

290 

GOSUBl30 :IFQ$<"1"ORQ$>"6"THEN290 

:rem 

54 

300 

IFQ$="3"THENl070 

: rem 

66 

31 0 

DIMA ( 1 5) 

: rem 

102 

320 

FORJ=lTOl5:A(J)=1 :NEXT 

: rem 

58 

330 

IFQ$="2"THEN410 

: rem 

17 

340 

A=RND(0) 

: rem 

122 

350 

A=INT(RND ( 1)*1 5) +1 

: rem 

164 

360 

A ( A) =2 

: rem 

21 9 

370 

B=INT(RND(1)*15)+1 

: rem 

167 

380 

IFB=ATHEN3 70 

: rem 

179 

390 

A(B)=0 

: rem 

221 

400 

GOTO630 

: rem 

102 

41 0 

REM 

: rem 

121 

420 

GOSUB530 

: rem 

174 

430 

INPUT"{ 4 GIU'}POSIZIONE ROSSA (1-15){ 3 

SPAZI}* 



{ 3 SIN}";A$ 

: rem 

173 

440 

A=VAL(A$) 

: rem 

175 


n 



450 

IFA< 1 ORA> 1 50RAO INT ( A) THENPRINT" { 6 SU}": 

GOTO430 




: rem 

165 

460 

A(A)=2 

: rem 

220 

470 

PRINT"{GIU')" 

: rem 

125 

480 

INPUT"POSIZIONE VUOTA (1-15) { 3 SPAZI}*{ 

3 SIN}"; 

B$ 



: rem 

1 1 8 

490 

B=VAL(B$) 

: rem 

182 

500 

IFB=AORB< 1 ORB> 1 SORBO INT ( B) THENPRINT" { 2 

SU}":GOT04 80 



: rem 

199 

510 

A ( B) =0 

: rem 

215 

520 

GOTO630 

: rem 

105 

530 

PRINT"{CLR}"TAB(18)"1" 

: rem 

2 

540 

PRINT 

: rem 

38 

550 

PRINTTAB(16)"2{ 3 SPAZI}3" 

: rem 

95 

560 

PRINT 

:rem 

40 

570 

PRINTTAB(14)"4{ 3 SPAZI}5{ 3 SPAZI}6" 

: rem 

1 53 

580 

PRINT 

: rem 

42 

590 

PRINTTAB(12)"7{ 3 SPAZI}8{ 3 SPAZI}9{ 2 SPAZI}10" 




: rem 

3 

600 

PRINT 

: rem 

35 

610 

PRINTTAB(10)"11{ 2 SPAZl}12{ 2 SPAZI}{RVS}13{OFF} 



{ 2 SPAZI}14 15" 

: rem 

137 

620 

RETURN 

: rem 

120 

630 

REM 

: rem 

125 

640 

PRINT"{CLR}{ 7 GIU 1 }{ 2 SPAZI}DESIDERI LA 

TAVOLA 

DEI 


NUMERI (S/N)?" 

:rem 

20 

650 

GOSUBl30 :IFQ$ = "N"THENPRINT"{CLR}":GOTO680 

:rem 

96 

660 

IFQ$O"S"THEN650 

:rem 

123 

670 

GOSUB530 

:rem 

181 

680 

GOSUB930 

: rem 

1 86 

690 

PRINT"{HOME}{ 14 GIU'}" 

: rem 

113 

700 

PRINT"{ 11 SPAZI}{GIU*}":PRINT"{ 11 SPAZI}{ 3 SU} 

II 



:rem 

55 

710 

INPUT" DA{ 3 SPAZI}*{ 3 SIN}";A$ 

: rem 

146 

720 

IFA$="*"THENl230 

: rem 

45 

730 

A=VAL(A$) 

: rem 

177 

740 

IFA<10RA>15THENPRINT"{ 2 SU}":GOTO710 

:rem 

139 

750 

IFPEEK ( B ( A) ) < >87 ANDPEEK ( B ( A) ) 081 THENA$ = " 

0 " :GOTO730 



: rem 

176 

760 

PRINT 

: rem 

42 

770 

INPUT" A{ 4 SPAZI}*{ 3 SIN}";B$ 

:rem 

85 

780 

B=VAL(B$) 

: rem 

184 

790 

IFB<10RB>15THENPRINT"{ 2 SU}":GOTO770 

: rem 

152 

800 

IFPEEK (B(B) ) O42THENG0SUB1 000:GOT0690 

:rem 

21 2 

810 

C=(B(A)+B(B))/2 

: rem 

159 

820 

IFPEEK (C) 0 81 ANDPEEK (C) 087THENGOSUB1 000 :i 

GOTO690 




: rem 

188 

830 

IFABS(C-B(A))>130THENGOSUB1000:GOT0690 

:rem 

233 

840 

RY=87:IFPEEK(B(A))=8lTHENRY=34 

: rem 

42 

850 

POKEC, 42 :POKEC+D,0 

: rem 

24 

860 

POKEB(B),PEEK(B(A)):POKEB(B)+D,RY 

: rem 

156 


12 


870 

POKEB(A),42:POKEB(A)+D, 0 

: rem 

60 

880 

FORJ=1TOl5 

: rem 

72 

890 

IFCOB(J) THENNEXT 

: rem 

56 

900 

IFJ=16THENSTOP 

:rem 

139 

91 0 

A ( B) =A ( A) : A ( A) =0 : A ( J) =0 

:rem 

123 

920 

GOTO690 

: rem 

115 

930 

REM 

: rem 

128 

940 

FORJ=lTOl5 

: rem 

69 

950 

IFA(J) =1 THENPOKEB(J) ,87:POKEB(J)+D,87 

: rem 

157 

960 

IFA(J)=2THENPOKEB(J) ,81 :POKEB(J)+D,34 

: rem 

145 

970 

IFA(J)=0THENPOKEB(J),42:POKEB(J)+D,0 

:rem 

86 

980 

NEXT 

: rem 

224 

990 

RETURN 

:rem 

130 

1000 

REM 

: rem 

165 

1010 

PRINT"{HOME}{GIU*}{RVS}{ 2 SPAZIjMOSSA 

ILLEGALE" 




: rem 

139 

1 020 

PRINT"{GIU'}{RVS} C PER CONTINUARE" 

: rem 

21 7 

1030 

GOSUBl30:1FQ$ O"C'THENl030 

:rem 

10 

1040 

PRINT" {HOME}{GIU' }{ 16 SPAZI}" 

: rem 

1 86 

1050 

PRINT"{GIU'}{ 17 SPAZI}" 

: rem 

168 

1 060 

RETURN 

: rem 

167 

1 070 

REM 

: rem 

172 

1 080 

PRINTCHRS(147);TAB(14)"ISTRUZIONI" 

: rem 

112 

1 090 

PRINTTAB(14);:FORJ=lTOl0 :PRINTCHR?(101) 

; :NEXT:PRINT 



: rem 

34 

1100 

PRINTCHR9(144);CHR$(42)CHR$ ( 5)" RAPPRESENTA UNO 

SPAZ 


IO VUOTO." 

: rem 

208 

ino 

PRINTCHRS ( 17);CHR$(158);CHR$(119)CHR$(5) " RAPPRESENT 


A UNA PEDINA." 

: rem 

48 

1 1 20 

PRINTCHR$(17);CHR$(28);CHR$(209);CHR$(5)" RAPPRESENT 


A LA PEDINA ROSSA." 

: rem 

105 

1 1 30 

PRINT" { 2 GIU'H 3 SPAZI) IL GIOCO:- SALTA CON UNA PE 


DINA SOPRA" 

: rem 

148 

1 1 40 

PRINT"{GIU ' JUN'ALTRA PER FINIRE IN UNO 

SPAZIO VUOTO. 


II 

: rem 

180 

1 1 50 

PRINT"{GIU' } LA PEDINA 'MANGIATA' { 2 SPAZlJVERRA' 

CAN 


CELLATA." 

: rem 

20 

1 1 60 

PRINT"{GIU'}CERCA DI RIMANERE CON UNA SOLA PEDINA." 



: rem 

186 

1 1 70 

PRINT" { 2 GIU'}PER UN PUNTEGGIO{ 2 SPAZI } MIGLIORE 


{ 2 SPAZI}DEVI CERCARE" 

: rem 

109 

1 1 80 

PRINT"{GIU'}DI RESTARE CON LA PEDINA { 2 

SPAZI}ROSSA 


SUL { RVS } 13{OFF } . " 

: rem 

31 

1 1 90 

PRINT"{GIU' }{ 2 DES }{ RVS } PREMI SPAZIO 

PER RITORNARE 


AL MENU " 

: rem 

171 

1 200 

GOSUBl30 

: rem 

21 5 

1 21 0 

IFQ$=CHR$ ( 32)THEN240 

: rem 

129 

1 220 

GOTOl200 

:rem 

193 

1 230 

REM 

: rem 

170 

1 240 

C=0:R=0:FORJ=lTOl5 

: rem 

82 

12 50 

IFA(J)<>0THENC=C+1 

:rem 

43 


13 


1 260 

IFA(J)=2THENR=1 

: rem 

146 

1 270 

NEXT 

: rem 

9 

1 280 

PRINT"{HOME}{GIU'}"C"RIMASTE" 

: rem 

92 

1 290 

PRINT 

: rem 

89 

1 300 

IFC>3THENPRINT"NON VALUTATO!" 

: rem 

131 

1 31 0 

IFC=3THENPRINT"ORDINARIO" 

: rem 

174 

1 320 

IFC=2THENPRINT"BUONO" 

: rem 

138 

1 330 

IFC=1ANDR=OTHENPRINT"MOLTO BUONO" 

: rem 

167 

1 340 

IFC=1ANDR=1ANDPEEK(B(13))<>81THENPRINT 

"BRILLANTE 

i< 



: rem 

91 

1 350 

IFO 1 ANDRAI ANDPEEK (B ( 1 3) ) =81 THENPRINT" 

GENIO ! ! !" 




: rem 

87 

1360 

PRINT" { 11 GIU'H 13 SPAZI) {HOME}" 

: rem 

105 

1 370 

PRINTTAB(26)"{RVS}N PER GIOCARE" 

: rem 

109 

1 380 

PRINT 

: rem 

89 

1 390 

PRINTTAB(26)"{RVS}F PER FINIRE" 

: rem 

42 

1 400 

GOSUB130 :IFQ$="N"THENRUN 

: rem 

10 

1 410 

IFQSO "F"THEN1 400 

: rem 

194 

1 420 

PRINT"{CLR}":END 

: rem 

60 


^ Mini-Mancala 


Questo programma trae origine da 
un antico gioco arabo. Ci sono 4 
tazze contrassegnate dalle lettere 
A, B, C, D-. due, la A e la B, apparten¬ 
gono al computer, le altre due, la 
Ce la D, sono tue. 

All'inizio del gioco tutte le tazze 
contengono 2 pedine. A turno i 
giocatori, cioè tu e il computer, de¬ 
vono prendere le pedine contenu¬ 
te in una delle proprie tazze e di¬ 
stribuirle una ad una in senso anti¬ 
orario nelle altre tazze Ci dovrà es¬ 
sere sempre almeno una tazza 


vuota in quanto le pedine non 
possono essere rimesse nella tazza 
da cui sono state prese. 

Vince chi riesce a portare tutte le 
pedine in una delle proprie tazze. 
Puoi scegliere il livello di difficoltà 
(da 7 a 3,1 è il più semplice) e chi 
deve iniziare per primo. Non sco¬ 
raggiarti per gli insuccessi iniziali 
perché il gioco è realmente molto 
difficile, con un po' di pazienza, 
tuttavia, riuscirai a mettere a punto 
una strategia vincente. 


1 0 

REM *MINI-MANCALA* 

:rem 

224 

20 

POKE36879,152 

:rem 

102 

30 

DIMB(3)/SU(3) 

: rem 

91 

40 

DEFFNSP(X)=6+44*(XAND2)+6*(XANDl) 

: rem 

41 


14 







50 FORI=0T03 

: rem 

21 6 

60 B(I)=2 

: rem 

177 

70 READSU(I) 

: rem 

197 

80 NEXT 

: rem 

167 

90 DATA2,0,3,1 

: rem 

205 

100 E$ = "{HOME}{ 16 GIU'}" 

: rem 

1 58 

110 GOTO560 

: rem 

102 

120 REM ‘DISEGNO SCHERMO* 

: rem 

229 

130 PRINT"}CLR}{BLU}{GIU 1 }{ 3 SPAZI}{RVS} 

MINI} 2 *}MANCA 

LA }BLK}" 

: rem 

100 

140 PRINT 

: rem 

34 

150 PRINT"} 3 SPAZI}A"SPC(13)"B" 

; rem 

201 


160 PRINT"{ 
170 PRINT"} 
180 PRINT"{ 


SPAZI}[<A>) { 5 *}[<R>){ 5 *}[<S>]": rem 


SPAZI}-" 

5 [<X>]": rem 

: rem 
: rem 
: rem 

SPAZI}{ 2 SIN}"; 


r rem 
SPAZI}2 
: rem 101 
: rem 2 
: rem 28 
: rem 251 
SPAZI}2 
: rem 96 
: rem 253 


SPAZ I }j-{ 5 SPAZ I} - { 5 SPAZI}-" 

SPAZI}--} 2 SPAZI}?} 2 SPAZI}*} 

{ 2 SPAZI}^" 

190 PRINT"} 4 SPAZI}-} 5 SPAZI}-} 5 SPAZI}-" 

200 PRINT"} 4 SPAZI}I<Q>]{ 5 *} + { 5 *}}<W>]" 

210 PRINT"} 4 SPAZI}--{ 5 SPAZI }-j 5 SPAZI}-" 

220 PRINT"} 4 SPAZI}-} 2 SPAZI}2{ 2 SPAZI}-} 

{ 2 SPAZI} Z " 

230 PRINT"} 4 SPAZI}^} 5 SPAZI}-} 

240 PRINT"} 4 SPAZI}[<Z>]{ 5 *}[<E>]{ 

250 PRINT"} 3 SPAZI}C"SPC(13)"D" 

260 RETURN 

270 REM *IMPUT MOSSA* 

280 PRINTE$"DA CHE TAZZA (C/D){ 

: rem 

290 INPUTS$ ; rem 

300 IFS$=""THEN2 80 : rem 

310 S=-2*(S$ = "C")-3*(S$ = "D") : rem 

320 IFS = 0ORB(S)=OTHEN280 : rem 

330 RETURN : rem 

340 REM *MOSSA COMPUTER* : rem 

350 PRINTE$"} 3 SPAZI}ORA TOCCA A ME} 4 SPAZI}" : rem 

360 FORDE=1TO500:NEXTDE : rem 

370 IFLE<3ANDRND(0)*LE<.6THENS=INT(RND(0)*2):GOTO400 


248 

0 


2 

206 
1 20 
227 

47 
162 
227 
80 
161 
1 1 8 
193 
241 
177 


: rem 

380 Q = B(2)+10*(B(1)+10*B(0)) : rem 

390 S=1 :rem 

400 IFQ=1 430RQ=1340RQ=611ORQ=116THENS = 0 : rem 

410 IFB(S)=0THENS = 1-S : rem 

420 PRINTES" MUOVO DALLA TAZZA "MID$("AB",S+l ,1): rem 
430 RETURN : rem 

440 REM *MOVIMENTO ANTIORARIO* : rem 

4 50 D=S : rem 

4 60 FORC=lTOB(S) : rem 

4 70 FORDE=lTO400:NEXTDE : rem 

480 D=SU(D) :rem 

4 90 IFD = STHEN4 80 : rem 

500 B(S)=B(S)-1 :rem 


127 

50 

93 

141 

231 

156 

119 

134 

109 

187 

178 

90 

203 

252 
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Viole Restelli, 5- 20124 Milano (MI) 
Tel. 02/6888228-683797-6880841/2/3/ 


ta nkcoM»anmr-» k 

SScrirss^»» *”"• 

COfAP0TER^AR-8K 


COD. DTEWV 02 $i isp ,ro al film 

^Segasi»-' 

T° bosi. 


SUBfAARlN £ 


monw 
proprie bosi. 

COMfAANDER -16 * 


COD. DTEMVOI 
Uno rea!is' ,co 

Mediterraneo, 

stello e 


VtVOl , e ne | 

Uno —J- flÈ-S 5 ’S-nT-'- 

Medi! errane • 

Vf»rÌA e diverse scherma ^ roq giunc 


azione a. . | co monao u. -■ 

, quale c. s. permettono * 

e e diverse sche . • “ raggiungere 

sommergibtte-^e proprie RO** 0 "' P* 


Ordino il seguente software per il VIC 20 

cod. -- cod. - 

cod. -— cod. - 

cod. ___- cod. - 


. cod. 


per un lolole di l_+ l 2.500 per contributo fisso di spese di spedizione. 

Scelgo lo seguente modalità di pagamento: □ pogliero in contrassegno al postino 

□ allego assegno (o contanti) 

□ verso l'importo sul C.C.P. n. 19445204 
intestato o J sott (allego ricevuta) 


Nome_____ 

Cognome -!- 

Via --"-— 
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51 0 

PRINT"{HOME}{ 6 GIU'}"SPC(FNSP(S));B(S) 

: rem 

19 

520 

B (D) =B (D) +1 

: rem 

222 

530 

PRINT"{HOME}{ 6 GIU'}"SPC(FNSP(D));B(D) 

: rem 

247 

540 

NEXTC 

: rem 

27 

550 

RETURN 

: rem 

122 

560 

REM ‘PROGRAMMA PRINCIPALE* 

: rem 

96 

570 

GOSUBl20 

:rem 

175 

580 

PRINTE$"{ 2 SPAZI}LIVELLO! 2 SPAZI}(1 -3)"; 

:rem 

11 

590 

INPUTLE 

: rem 

191 

600 

IFLE<1ORLE>3THEN580 

: rem 

146 

61 0 

PRINTE$"{ 2 SPAZI}INIZI TU (S/N){ 3 SPAZI}{ 

3 SIN} 

« • 
t 



: rem 

48 

620 

INPUTANS 

: rem 

21 9 

630 

IFAN$="N"THEN680 

: rem 

119 

640 

IFAN$<>"S"THEN610 

: rem 

179 

650 

GOSUB270 

:rem 

180 

660 

GOSUB440 

: rem 

180 

670 

IFB(3)=8THENPRINTE$"{ 6 SPAZl}HAI VINTO!{ 6 

SPAZI} 

" : G 


OTO720 

: rem 

95 

680 

GOSUB340 

:rem 

181 

690 

GOSUB440 

: rem 

183 

700 

IFB(0)=8THENPRINTE$"{ 6 SPAZl}HO VINTO!!{ 6 

SPAZI} 

" : G 


OTO720 

: rem 

60 

710 

GOTO650 

:rem 

108 

720 

PRINT:END 

: rem 

55 


Paroliamo 


Ecco una versione per il vostro VIC 
di un popolarissimo gioco che av¬ 
vincerà tutta la famiglia. Dovrete 
comporre delle parole di senso 
compiuto utilizzando il maggior 
numero possibile di lettere scelte 
fra le 10 estratte dal computer. 
L'estrazione avviene indicando di 
volta in volta, tramite i tasti Ce V, 
se si desidera una consonante o 


una vocale, appena le 10 lettere 
sono state sorteggiate, avete 45 se¬ 
condi di tempo per anagrammarle 
cercando di formare una parola. 
Possono giocare fino a otto perso¬ 
ne, che ad ogni turno guadagnano 
un punteggio dato dalla lunghezza 
della parola che sono riusciti a for¬ 
mare. Dopo ogni mano si può sce¬ 
gliere se proseguire o smettere. 

: rem 233 
: rem 244 


10 REM PAROLIAMO 

20 POKE36879,28:PRINT"{CLR}{GRN} 


18 







30 PRINT"{ 5 DES}{RVS} PAROLIAMO " 

: rem 

1 23 

40 PRINT"{ 2 GIU'}(BLU)NUMERO DI GIOCATORIINPUT"(MAX.8) 


1 : NP 

: rem 

254 

50 IFNP<1ORNP> 8THEN20 

:rem 

69 

60 DIMPO(NP),CS(10),WO$(20) 

: rem 

1 88 

70 GOTO510 

: rem 

54 

80 REM *SCELTA CARATTERI* 

: rem 

251 

90 LE$ = " " 

: rem 

159 

1 00 

PRINT"{BLU}{ 2 GIU'}{RVS}TURNO DEL GIOCATORE";PL 




: rem 

150 

110 

PRINT"{GIU*}VOCALE O CONSONANTE?{RED}{GIU’} 

" : r em 

225 

1 20 

FORDU=1TOl0 

: rem 

133 

1 30 

GETINS 

: rem 

47 

1 40 

IFIN$0"V"ANDIN$0"C"THEN1 30 

: rem 

69 

1 50 

IFIN$ = "V"THENCH$ = "AEIOU" 

: rem 

137 

1 60 

IF IN$ = "C"THENCH$ = ' l BCDFGHLMNPQRSTVZ " 

: rem 

21 1 

1 70 

C$=MID$(CH$ f RND(0)»LEN(CH$)+1 ,1) 

: rem 

141 

1 80 

LE$=LE$+C$ 

: rem 

210 

1 90 

PRINTCS; 

: rem 

201 

200 

NEXTDU 

: rem 

106 

210 

RETURN 

: rem 

11 5 

220 

REM * INPUT PAROLA* 

: rem 

27 

230 

LE=0 

: rem 

147 

240 

PRINT"{BLU}{GIU’}SECONDI:" 

: rem 

21 4 

2 50 

TI$ = "00000 0":Q=0 

: rem 

241 

260 

PRINT"{HOME}{ 6 GIU'}{ 8 DES}{BLU}"; :IFQ>35THENPRINT" 


Il • 
t 

: rem 

31 

270 

PRINT45-Q:Q=VAL(TI$) 

: rem 

202 

280 

GETIN$ 

: rem 

53 

290 

IF ( INSOCHRS (20) ORLE=0) AND (IN$<"A"ORIN$>"Z" 

)THEN340 



: rem 

161 

300 

IFLE>9ANDIN$OCHR$ (20) THEN340 

: rem 

172 

31 0 

PRINT"{HOME}{ 8 GIU'}{BLK}";TAB(LE+6) ; IN$ 

:rem 

21 9 

320 

IFIN$ =CHR$(20)THENLE=LE-1:GOTO340 

: rem 

1 98 

330 

LE=LE+1:WO$(LE)=INS 

: rem 

47 

340 

IFQ< 46THEN260 

:rem 

228 

350 

RETURN 

: rem 

120 

360 

REM ‘CALCOLO PUNTEGGIO* 

:rem 

128 

370 

FORC=lTOl0 

: rem 

54 

380 

C$(C)=MID$(LE$,C,1) 

: rem 

163 

390 

NEXT 

: rem 

219 

400 

FORCO=ITOLE 

: rem 

175 

410 

FORC=lTOl0 

: rem 

49 

420 

IFWOS(CO)=C$(C)THENC$(C)="":GOTO440 

:rem 

192 

430 

NEXTC:GOTO460 

:rem 

38 

440 

NEXTCO 

: rem 

105 

4 50 

PO(PL)=PO(PL)+LE 

: rem 

170 

460 

PRINT"{HOME}{ 11 GIU'}{BLU}"; 

:rem 

147 

470 

FORP=1TONP 

: rem 

129 

480 

PRINT"GIOCATORE";P;"{SIN}:";PO(P);"PUNTI" 

:rem 

117 

4 90 

NEXTP 

: rem 

44 
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500 

RETURN 

: rem 

117 

510 

REM ‘PROGRAMMA PRINCIPALE* 

: rem 

91 

520 

FORPL=1TONP:PRINT"{CLR)" 

: rem 

103 

530 

GOSUB80 

: rem 

128 

540 

PRINT"{CLR){BLU}GIOCATORE";PL;"{SIN}, COMPONI":PRINT" 
UNA PAROLA USANDO" : rem 101 

550 

PRINT"LE SEGUENTI LETTERE:{GIU'}{RED}" 

: rem 

220 

560 

PRINTTAB(6);LE$ 

:rem 

11 8 

570 

GOSUB220 

:rem 

176 

580 

GOSUB360:IFPL=NPTHEN610 

:rem 

1 88 

590 

PRINT"{ 2 GIU 1 }{RVS}{ 4 DES)PREMI UN TASTO" 

: rem 

194 

600 

GETA$:IFA$=""THEN600 

:rem 

79 

610 

NEXTPL:PRINT"{ 2 GIU'}UN'ALTRA MANO (S/N)?" 

: rem 

104 

620 

GETA$:IFA$<>"S"ANDA$<>"N"THEN620 

: rem 

39 

630 

IFA$="S"THEN520 

: rem 

39 

640 

PRINT"{CLR}":END 

: rem 

15 


a 

% 

Vg 

J Connect Five 


Questo gioco, come potrete capire 
dal titolo, non è altro che una ver¬ 
sione rivista ed aggiornata del pro¬ 
gramma Filetto. Infatti vi troverete 
di fronte a una scacchiera piuttosto 
irregolare dove dovrete muovere 
le vostre pedine (si gioca in 2) e 
tentare di allinearne 5 in qualsiasi 
senso. 

Per riconoscere le vostre pedine e 
quelle dell'avversario verrà visua¬ 
lizzata sul fondo dello schermo 


una linea che varia di colore: o blu 
o rossa. Voi dovrete fare indica¬ 
mente a quella per capire se è il 
vostro turno o quello avversario (o 
se volete, potrete barare). 

Si gioca con i tasti E,S,D ed X, e si 
usa il tasto <ENTER> per deposi¬ 
tare una pedina. 

Un ultimo avvertimento: vi consi¬ 
glio di acquistare un pallottoliere 
in quanto potrete sbagliarvi a con¬ 
tare le 5 caselle. 


100 REM 
110 REM 

120 DIM DELTAX(8) ,DELTAY(8) ,ROW(1) ,COL(1) » PIECE(1) ,COUNT( 

D 

130 GOSUB 980 

140 REM 

150 PLR=1-PLR 

160 CALL HCHAR(24,1,128+PLR*8,32) 

170 CALL GCHAR(ROW(PLR),COL(PLR),PK) 


20 





180 CALL HCHAR(ROW(PLR),COL(PLR),PIECE(PLR)) 

1 90 REM 

200 CALL KEY(3,WHICH,STATUS) 

210 IF (WHICH=13)*(PK=144)THEN 340 
220 CALL HCHAR(ROW(PLR),COL(PLR),32) 

230 IF STATUS=0 THEN 180 

240 CALL HCHAR(ROW(PLR),COL(PLR),PK) 

250 TEMPROW=ROW(PLR) 

260 TEMPCOL=COL(PLR) 

270 ROW(PLR)=ROW(PLR)+(WHICH=69>-<WHICH=88) 
280 COL(PLR)=COL(PLR)+(WHICH=83)-(WHICH=68) 
290 CALL GCHAR(ROW(PLR),COL(PLR),PK) 

300 IF PK0152 THEN 170 
310 ROW(PLR)=TEMPROW 
320 COL(PLR)=TEMPCOL 
330 GOTO 170 

340 CALL HCHAR(ROW(PLR),COL(PLR),PIECE(PLR)) 

3 50 REM 
360 REM 
370 REM 

380 FOR 1=1 TO 8 
390 TEMPROW=ROW(PLR) 

400 TEMPCOL=COL(PLR) 

410 DX=DELTAX(I) 

420 DY=DELTAY(I) 

430 N=0 

440 TEMPCOL=TEMPCOL+DX 
450 TEMPROW=TEMPROW+DY 
460 CALL GCHAR(TEMPROW,TEMPCOL,PK) 

470 IF PKOPIECE (PLR) THEN 500 
480 N=N+1 
490 GOTO 440 
500 N=0 

510 TEMPCOL=TEMPCOL-DX 
520 TEMPROW=TEMPROW-DY 
530 CALL GCHAR(TEMPROW,TEMPCOL,PK) 

540 IF PKOPIECE (PLR) THEN 570 

550 N=N+1 

560 GOTO 510 

570 IF N=5 THEN 800 

580 NEXT I 

590 REM 

600 REM 

610 FOR 1=1 TO 8 
620 TEMPROW=ROW(PLR) 

630 TEMPCOL=COL(PLR) 

640 DX=DELTAX(I) 

650 DY=DELTAY(I) 

660 CALL GCHAR(TEMPROW+DY,TEMPCOL+DX,CK1) 

670 CALL GCHAR(TEMPROW+DY*2,TEMPCOL+DX*2,CK2) 
680 CALL GCHAR(TEMPROW+DY*3,TEMPCOL+DX*3,CK3) 
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690 IF (CK1 < > PIECE ( 1 - PLR) ) -t- (CK2< >PIECE ( 1 - PLR) ) + (CK3< >PIEC 

E(PLR))THEN 770 

700 COUNT(PLR)=COUNT(PLR)+ 2 

710 *IF COUNT(PLR)>10 THEN 720 ELSE 730 

720 COUNT(PLR)=10 

730 CALL VCHAR(5,28*PLR+2,PIECE(1 -PLR) ,COUNT(PLR)) 

740 CALL HCHAR(TEMPROW+DY,TEMPCOL+DX,144) 

750 CALL HCHAR(TEMPROW+DY*2,TEMPROW+DX*2,144) 

760 IF COUNT(PLR)=10 THEN 800 
770 NEXT I 
780 GOTO 1 50 
790 REM 

800 FOR 1=1 TO 20 

810 CALL SCREEN(RND*15+1) 


820 
830 
840 
850 
860 
870 
880 
890 
900 
91 0 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1 040 
1050 
1 060 
1070 
1080 
1090 
1100 
ino 
1 1 20 
1 1 30 
1 1 40 
1 1 50 
1160 
1 170 
1 1 80 


NEXT I 

FOR 1=1 TO 10 

CALL COLOR(14-PLR,RND*15+1,RND*15+1) 
CALL SOUND(-l,1*100+100,1*3) 

NEXT I 

CALL COLOR(14-PLR,1,1) 

CALL CLEAR 

PRINT "IL GIOCATORE 


IF PLR THEN 930 
PRINT "DUE”; 
GOTO 940 
PRINT "UNO"; 
PRINT " VINCE!" 
END 
REM 
REM 

CALL SCREEN(16) 
FOR 1=1 TO 8 
READ A,B 
DELTAX(I)=A 
DELTAY(I)=B 
NEXT I 
DATA 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


, 1 ,- 1 ,- 1 ,- 1 , 0 , 0 ,- 1 ,- 1 , 1 , 1,-1 


0 , 1 , 1 , 0,1 
CLEAR 
COLOR(13,9,1) 

COLOR(14,6,1) 

COLOR(15,14,1 ) 

COLOR(16,12,1) 

CHAR (152,"FEFEFEFEFEFEFE00") 
CHAR(144,"007E666666667E00") 
CHAR(129,"007E7E7E7E7E7E00") 
CHAR(137,"007E7E7E7E7E7E00") 
CHAR(128,"FFFFFFFFFFFFFFFF") 
CHAR(136,"FFFFFFFFFFFFFFFF") 
HCHAR(3,3,152,26) 

HCHAR(22,3,152,26) 

VCHAR(3,3,152,20) 


1190 CALL VCHAR(3,29,152,20) 

1200 FOR 1=4 TO 21 

1210 CALL HCHAR(I,4,144,25) 

1220 NEXT I 
1230 PIECE(0)=129 
1 240 PIECE(1)=137 
1250 COUNT(0)=0 
1 260 COUNT(1)=0 
1270 ROW(0)=12 
1280 COL(0)=16 
1 2 90 ROW(1)=1 1 
1 300 COL(1)=16 

1310 CALL HCHAR(ROW(0),COL(0),PIECE(0)) 
1320 RETURN 


Allunaggio 


BASIC 


Questo ottimo gioco simula il volo 
di una navicella spaziale (forse una 
dei primi modelli), e vi permette di 
sperimentare la decelerazione di 
un corpo. 

State guidando questa navicella e 
ad un certo punto il radar segnala 
che siete nell'atmosfera di Krinnon 
(il pianeta che sta battagliando con 
quello di Astrostrm), ed a questo 
punto vi rimane solo una cosa da 
fare: atterrare e distruggere il pia¬ 


neta maledetto di Astrostorm. Ma 
il radar segnala che il combustibile 
è quasi finito, quindi potete per¬ 
mettervi pochi errori. Per decelera¬ 
re è sufficiente premere la barra 
"SPACE"; ciò vi toglierà IO unità di 
combustibile e rallenterà il vostro 
moto. 

Se non riuscirete al primo tentati¬ 
vo, ritentate: prima o poi potrete 
diventare anche voi degli ottimi 
astronauti. In bocca al lupo! 


100 REM 
no REM 
1 20 REM 
130 CALL 
1 4 0 CALL 
150 REM 


ALLUNAGGIO 

CLEAR 
SCREEN(15) 

DEFINIZIONE CARATTERI 


160 CALL CHAR(149,"FFFFFFFFFFFFF 
FFF" ) 

170 CALL CHAR(130,"7EFFFFFFFF7E8 
1 81 ") 

180 CALL CHAR(140,"3C3C1C18181") 
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190 CALL COLOR(13,5,1) 

200 CALL COLOR(14,7,1) 

210 CALL COLOR(15,4,1) 

220 HT=2 
230 VEL=0 
240 FU=50 

250 REM SUPERFICIE LUNARE 
260 CALL HCHAR(24,3,149,29) 

270 CALL HCHAR(23,3,149,5) 

280 CALL HCHAR(23,26,149,6) 

290 CALL HCHAR(22,27,149,5) 

300 CALL HCHAR(22,3,149,2) 

310 REM CICLO PRINCIPALE 
320 CALL HCHAR(HT,16,130) 

330 VEL=VEL+1 .2 

340 M$ = "COMBUSTIBILE = "&STR$(FU 

) 

350 FOR J=1 TO LEN(M$) 

360 CH=ASC(SEGS(M$,J,1)) 

370 CALL HCHAR(1,11+J,CH) 

380 NEXT J 

390 IF FU=0 THEN 510 
400 REM ACCENSIONE? 

41 0 CALL KEY(0,K,S) 

420 IF K<> 32 THEN 510 
430 CALL SOUND(100,-5,2) 

440 CALL GCHAR(HT+1,16,CH) 

450 CALL HCHAR(HT+1,16,140) 

460 FU=FU-10 

470 IF FU>0 THEN 490 

480 FU=0 

490 VEL=VEL-2 

500 CALL HCHAR(HT+1,16,CH) 

510 CALL HCHAR(HT,16,32) 

520 HT=INT(HT+VEL) 

530 IF HT> =23 THEN 560 
540 GOTO 320 
550 REM CONTATTO 
560 IF VEL<2.1 THEN 610 
570 CALL SOUND(300,-5,2) 

580 CALL HCHAR(24,16,131) 

590 PRINT TI SEI SCHIANTATO 

!" : : 

600 GOTO 640 

610 CALL SOUND(200,320,2) 

620 CALL HCHAR(23,16,130) 

630 PRINT UN ATTERRAGGIO PE 

RFETTO!" 

640 FOR DEL=1 TO 1000 
650 NEXT DEL 
660 GOTO 130 


24 


Mondi geometrici 


Spectrum 16/48K 


Si tratta di un programma tutto da 
vedere! Esso infatti genera disegni 
casuali, il cui pattern di base è rom¬ 
boidale. Ho scelto questo titolo 
perché, guardando i disegni che 
produce, non di rado si ha l'impres¬ 
sione di assistere alla creazione (e 
al collasso) di mondi lontanissimi, 
di galassie che si espandono e si 
contraggono in tempi che a noi 
sembrano brevissimi e invece... 

Il tutto sembra dovuto al caso: il 


caso qui è gestito dalla subroutine 
alle linee 800-850, in cui "p" con¬ 
trolla i colori di BORDER e PAPER, 
"s'sta per STEP e ”c“ e T si occu¬ 
pano della forma e dell'ampiezza 
delle figure romboidali generate. 
Questa subroutine è naturalmente 
modificabile sia nei valori sia ag¬ 
giungendo nuovi parametri casua¬ 
li. 

Per registrare il programma basta 
digitare RUN 9000. 


1 0 REM * 

1 1 REM * 

1 2 REM * 

1 3 REM * 

14 REM * 

1 5 REM * 

1 6 REM * 

1 7 REM * 

18 REM * 

1 9 REM * 

20 REM * 

30 RANDOMIZE 
300 GO SUB 800 

320 BORDER p: PAPER p: INK 9: CLS 

330 BRIGHT 1: OVER 1 

340 GO SUB 450 

350 OVER 0 

360 GO SUB 450 

370 OVER 1 : GO SUB 4 50 

380 GO SUB 830 

390 GO SUB 450 

400 GO SUB 830 

405 OVER 0 

410 GO SUB 700 

415 GO SUB 830 

420 OVER 1 

430 GO SUB 450 

440 PAUSE 150: GO TO 300 

450 FOR f=0 TO 115 STEP s 

500 PLOT 127,120-f: DRAW l-f,-(30-f): DRAW -(1-f)(30-f): DRAW -( 
1-f),30-f: DRAW 1-f,30-f 
530 NEXT f 
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PLANET 


SOFTWARE SELEZIONATO 
PER IL TUO 

iniziai! - 


ah diddums 

IiTE;g. 

olili g.ocoltoli rnolvog 
cercono di impedite 

‘■''o^tonob^t. 

confortare un bimbo 

|l piongenie 


7|P ZAP - * 

eoo. DIGMS05 

'jrb^ipo-e' 

nollivore lo ' ele ;P 
-, r mA*rm ol livello 

mm : 

locole pet wptowivere. 


RIVER RESCUE 48 K | 

COD. DTEMS06 
Spedizione lungo un fiume. 

o rsolvo.ogg.odiolcun 

un dorico orcode d oz.one 


ZOOM - 48 K 

eoo DIGMS02 

2 XSSSÌ&* 

sKSW.sr 

assi*- 

di terrò e di more. 


ROAD racer 

COD. DTEMS01 

stìr-t- 0 

„ ■? velocitò, conlogn, 
conlochilomelti. lochimelto. 

Con visuolizzozionc del 
n p U u n' , ?eoulo 0 ò°di i po^ione 

C lo dutolo dello vostro 
performonce. 




Una selezione di giochi recenti scelti tra i migliori 
disponibili sul mercato. Ciò che aspettavate 
per divertirvi. 




Si devono piazzare delle 
barriere sistemate .n m°d° 
tnle che dirigalo la caduta 

de»e Pepite d °ro dentro due 
contendori e nel cor^P 
cercare di evitare il contatto 
co. teschi che popolano la 


I 

i 
i 

caverna. 


JUMPING JACK 48 K 

dal traguardo (ed 
buchi sotto i suoi pted.D- lo 
suo avventuro viene 
ostacolalo anche da 
"mostri , trenini, accette, 
vampiri, eie- 


TOWER OF EVIL 48 K 

COD. DTEMS02 

Viaggio nelle stanze di un 

costello popolato di 
pericolosissimi mostri allo 
conquisto di tesori e oggetti 
d, vario utilità. Un 9»*° 
impegnativo e coinvolgerne, 
odotto anche a coloro che 
non ornano gli orcade. 


gold rush 

< 


blockade runner 

COD. DTEMSO* 

In questo gioco occorre 

sffiSpsa. 

alieni per raggiungere e 
soccorrere lo terrò. 
Sconsiderato di "ottimo 
giocobilitó 


MOLAR MAUL 

COD. DIGMS04 hV'n' 

Il protagonista è uno . 

roegnotom^suenuo . 

•Xod, due arcate dentane. fi 

minacciate di batterr » 

provocotrTdo^microl^ 

Purtroppo. >o 9 u °"'' ,à d 
quedo'obbtigo'òìlo 1 ricerca 
3, uno strategia 


1 ALCHEMIST - 48 K 

1 COD. DIGMS03 

. --Ijn adventure animato 

i.'fvl!» Siamo nelle vesti di unmo 
‘V , opo ce di Irasiormorsi in 

“ ccSr^tiellodi.—re 




APPROFITTANE ! 



CRUISER 


iD. DIGMS09 

3 i *S'° d ' 

sswiSar. 

Egfi” 


MiW.no 




— — —- Spett J.jotl 

Viole Re.felli, 5-20124 Milono (MI) 
Tel. 02/6888228-683797-6880841/2/3/ 


Ordino il seguente sotlwore per il S.ncloir: 


cod 


cod 


cod 


cod _ cod. - cod 

cod _cod -cod 


per un lolole di l _ + l 2.500 per contributo (isso di spese di spedizione 

Scelgo lo seguente modolitó di pogomcnlo □ pogherO in controssegno ol postino 

□ ollego assegno (o coniami) 

□ verso l'importo sul C C P. n 19445204 
intestalo o J soli (ollego ricevuto) 


Nome 


Cognome- 

Vio _n._ 

C.A.P. _Città _Prov 






















550 RETURN 

700 POR f=115 TO 1 STEP -s 

720 PLOT 127,120-f: DRAW 1-f,-(30-f) : DRAW - (1-f) ( 30-f): DRAW -( 

l-£),30-f: DRAW 1- f,30-£ 

740 NEXT f 
750 RETURN 

800 LET p=INT (RND*7) 

810 LET s=(RND*1.5)+0.5 
820 LET c=INT (RND*125)+1 
830 LET 1=INT (RND»C)+1 
850 RETURN 

9000 SAVE "M.G." LINE 30 


Minidefender 


i 


16/48K [fj 


Ecco un programma che, con po¬ 
che linee di istruzioni, ricrea 
l'atmosfera di un notissimo gioco.- 
Defender. 

Muovete la vostra astronave in alto 


e in basso con i tasti "7" e "6", e 
cercate di colpire (premendo il ta¬ 
sto "01 gli asteroidi che, implaca¬ 
bili, rotolano verso di voi. 


1 REM *********************** 

I 1 * 3 4 5 6 * * * * * * 13 * 15 16 * 18 2 REM * MINI DEFENDER * 

3 REM *********************** 

4 REM 

5 LET H=0: LET D=l: BORDER 0: PAPER 0: INK 6: BRIGHT 1: CLS 

6 LET S=0: LET T=0: LET X= 1 0 

10 RESTORE 11: FOR N=USR "A" TO USR "B"+7: READ A: POKE N, A: NEXT N 

: IF D=1 THEN GO SUB 90 

11 DATA 0,0,64,96,126,127,240,0,200,236,126,255,255,254,127,3 

12 PRINT AT X,2; INK 3;"A": FOR G=3 TO 0 STEP -1: PRINT AT 0,0; 

INK 4;“NAVI:”; INK 5;G;" PUNTI:"; INK 6;S;“ RECORD:"; INK 7;H;" 

n 

13 LET A=INT (RND*14): FOR B-INT (RND*20)+11 TO 0 STEP -1-.5*(S>300 

1 0)-.5*(S>6000): PRINT OVER 1; INK INT (RND*6)+1;AT A,B;"B" 

15 IF INKEYS<>"" THEN PRINT AT X,2;" ": LET X=X+(INKEY$="6" 

AND X<14)-(INKEY$=”7" AND X>1): PRINT AT X,2; INK 3;"A" 

16 IF INKEY$="0" THEN IF B>2 THEN PLOT OVER 1 ;25,2 + 8*(Il-X): 

DRAW INK INT (RND*6)+1 ; OVER 1;230,0: BEEP .007,0: BEEP .005,2 
0: BEEP .003,40: DRAW OVER 1 ;-231,0: IF X»A THEN LET S = S+INT B 
+10: PRINT AT 0,0; INK 4;"NAVI: M ; INK 2;G; INK 5;" PUNTI:"; 

INK 6;S; INK 6;" RECORD:"; INK 7;H;" ": BEEP .05,-30: BEEP .07, 
-40: BEEP .09,-50: PRINT AT A,B;" ": GO TO 13 

18 IF INKEYS»"" THEN FOR Y=1 TO 3: NEXT Y 
20 IF B<4 THEN GO TO 32 

22 IF INKEYS<>"" THEN PRINT AT X,2;" ": LET X=X+(INKEY$="6" 

AND X<14)—(INKEY$=”7" AND X>1): PRINT AT X,2; INK 3; "A" 

25 IF INKEY$="" THEN FOR Y=1 TO 3: NEXT Y 

28 PRINT OVER 1;AT A,B;"B": LET A=A+(RND<.4 AND A<14)-(RND>.6 
AND A>1): NEXT B 


29 







30 LET S=S-10: LET T=T+1: PRINT AT 0,13; INK 6;S;" GO TO 13 
32 IF XOA OR B<2 THEN GO TO 22 

35 PRINT AT X,2; FLASH 1; INK 2;"B": PRINT AT X,3; M BEEP .1,-50 

: BEEP .1,-(RND*5)-10: BEEP .2,-30: BEEP .1,-40: PRINT AT X,2; 
INK 3;"A " 

40 NEXT G: PRINT AT X,2;" ": PRINT AT 10,10; INK 2;"GAME OVER";AT 1 
2,5;"ASTEROIDI SFOGGITI: ";T: FOR X=1 TO 350:: NEXT X 

41 PRINT AT 10,10; OVER 1; INK 2;"GAME OVER";AT 12,5;"ASTEROIDI SFU 
GGITI: ";T 

45 IF H<S THEN LET H=S 

46 PAUSE 0: GO TO 6 

90 LET D=0: LET Y = 28: PLOT 0,28: FOR A=0 TO 14 
100 LET DY=INT (RND*56)-Y 
110 DRAW 16,DY 
120 LET Y=Y+DY 
130 NEXT A 
140 DRAW 15,28-Y 

185 FOR N=1 TO 70: PLOT RND*255,RND*175 : NEXT N 
1 90 RETURN 


ì 

^Lumache 


Vi ricordate la sequenza di TRON 
di Walt Disney in cui due motocicli¬ 
sti si sfidano in un singolare duel¬ 
lo? Se ricordate bene, ogni moto 
cerca di imprigionare l'avversario 
tra i confini del terreno e le scie 
coloratissime che i due veloci mez- 


- 


Spectrum 16/48K 


zi si lasciano alle spalle. Il program¬ 
ma qui pubblicato ricrea la stessa 
atmosfera, solo che sostituisce alle 
moto due veloci... lumache! La sfi¬ 
da è tra voi (lumaca gialla) e il vo¬ 
stro Spectrum. 

Chi vincerà? 


1 REM *********************** 

2 REM *** LUMACHE *** 

3 REM »**»****»**•*»***•***•• 

10 BEEP .1,1: BORDER 0: PAPER 0: INK 6: CLS 
1 5 GO TO 9000 
20 LET hi=0 
30 GO SUB 8000 
40 LET a$«INKEY$ 

50 IF a$>"8" OR a$<"5" THEN GO TO 70 
60 LET m=VAL a$: LET j=0 
70 LET hi=hl+(m=6)-(m=7) 

80 LET h2=h2+(m=8)-(m=5) 

90 LET b$=SCREEN$ <hl,h2) 

100 BEEP .005,10 

110 IF b$="_" THEN GO SUB 2000 

120 LET j = l: PRINT AT hl,h2; INVERSE 1 ; 

130 PRINT AT hi,h2 ; INVERSE 1; INK 6;" " 

140 LET u=0 
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150 IF U=5 THEN GO SUB 1000 
160 LET c3=c1: LET c4=c2 
170 LET c1=cl+(n=6)-(n=7) 

180 LET c2=c2+(n=8)-(n=5) 

190 LET c$=SCREEN$ (ci,c2) 

200 IF c$ = " " THEN LET n=u+5: LET cl=c3: LET c2=c4: LET u=u+l: 

GO TO T 50 

220 PRINT AT Cl,c2; INVERSE 1 ; 

240 GO TO 40 

1000 PRINT AT cl,c2| FLASH 1;" " 

1010 LET hs=hs+1: FOR p=1 TO 30: BEEP .008,p: NEXT p 
1020 PRINT AT 0,0;“PUNTI COMP “;cs;" UMANO ";hs 

1030 PRINT INVERSE 1;" 

1040 FOR 1=1 TO 19 

1050 PRINT INVERSE INVERSE 0;" " 

; INVERSE 1 ;" M 
1060 NEXT 1 

1070 PRINT INVERSE 1;" •• 

1080 LET cl«10: LET c2»T0 
1090 LET hi*10: LET h2 = 20 
1100 IF hs=10 THEN GO TO 3000 
1110 RETURN 

2000 PRINT AT hi,h2; FLASH 1;" " 

2010 LET cs=cs+l : FOR p=1 TO 30: BEEP .008,p: NEXT p 
2020 PRINT AT 0,0;“PUNTI COMP “;cs;“ UMANO “;hs 

2030 PRINT INVERSE 1;" " 

2040 FOR 1=1 TO 19 

2050 PRINT INVERSE 1;"_"; INVERSE 0;" " 

; INVERSE 1 ; 

2060 NEXT 1 

2070 PRINT INVERSE 1;" " 

2080 LET cl=10: LET c2=TÒ 

2090 LET hi=10: LET h2=20 

2100 IF hs=l 0 THEN GO TO 3000 
2110 RETURN 

3000 PRINT AT 5,8;("IL COMPUTER " AND cs>hs)+("L'UMANO " AND hs>cs);“ 
VINCE!!" 


3010 
8000 
8010 
8020 
8030 
8040 
8050 
8060 
8070 
8080 
8090 
81 00 
8110 
9000 
9010 

9020 

9030 


9040 

9050 


INPUT “Premi ENTER per giocare ancora"; LINE a$ 

LET j-1: LET cl =1 0 : LET c2 = 10 
LET hi=10: LET h2=20 
LET hs=0: LET cs=0 

BORDER 0: PAPER INT (RND*6): INK 9: CLS 
PRINT "PUNTI "; 

PRINT "COMP 00 UMANO 00" 

PRINT INVERSE 1;" " 

FOR 1=1 TO 19 

PRINT INVERSE 1}" INVERSE 0;TAB 31; INVERSE 1;" " 

NEXT 1 

PRINT INVERSE 1;" " 

LET m=5: LET n=8: RETURN 
PRINT AT 1,12;"LUMACHE" 

PRINT AT 3,0;" INTRAPPOLATE L'ALTRA LUMACA SENZA TOCCARE L 

E TRACCE DI SCHIUMA O I CONFINI DELLO SCHERMO" 

PRINT 


PRINT " 5 

SINISTRA 

6 

BASSO 

7 

M 

ALTO 

8 

DESTRA 

PRINT AT 20,10; INK 

2; FLASH 1;"PREMI ENTER": 

PRINT 

n 

R INIZIARE": INPUT 

v$ 




GO TO 20 
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A Milano, 

in via Mascheroni 14. 
la prima software 
libreria italiana 

Un tempo si andava in libreria per il gusto della 
scoperta, per il piacere di esser informati sulle novità. 
Per incontrarsi, discutere, chiedere un consiglio al 
libraio-amico. Tutto questo è ancora possibile, per un 
prodotto assolutamente nuovo: libri e riviste di 
informatica italiani ed esteri, software, giochi. 

Dove? Alla Libreria JACKSON. 

La prima software - libreria italiana. 

A Milano, in via Mascheroni 14. 

Tel. 02-437385 

Vieni a trovarci: ti aspettiamo. 






